home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Environments / PowerFantasm™ 4.19a / Beginners guide / GUIDE EXAMPLES / EXAMPLE3.S < prev    next >
Text File  |  1997-02-09  |  912b  |  29 lines
  1. *********************************************************
  2. *FILENAME:    EXAMPLE3.S            *
  3. *DESCRIPTION: PROGRAM TO ADD 3 NUMBERS TOGETHER         *
  4. *    AND PRINT THE RESULT IN A WINDOW.           *
  5. *    WRITTEN IN POSITION INDEPENDANT CODE        *
  6. *********************************************************
  7.  
  8. EXAMPLE3:    LEA    EX3_VARS(PC),A6
  9.     BSR    INIT_CURSOR    *part of io_lib.s
  10.     LEA    WINDOW_TITLE(PC),A0
  11.     BSR    OPEN_WINDOW    *PART OF IO_LIB.S
  12.     MOVE.L    A0,WINDOW_HANDLE(A6)    *OPEN_WINDOW RETURNS A HANDLE TO THE WINDOW
  13.  
  14.     MOVE.L    #10,D0    *ADD 10 AND 20 AND 30
  15.     ADD.L    #20,D0
  16.     ADD.L    #30,D0
  17.  
  18.     BSR    PRINTNUM    *part of io_lib.s - PRINTS D0
  19.     MOVE.L    WINDOW_HANDLE(A6),A0    *GET THE HANDLE FOR THE WINDOW
  20.     BSR    CLOSE_WINDOW    *CLOSE THE WINDOW
  21.     RTS
  22.     INCLUDE    IO_LIB.S
  23. ****VARIABLES
  24. WINDOW_HANDLE:    EQU    0    *WINDOW HANDLE .L
  25. EX3_VARS:    DS.B    4    *SPACE FOR 1 LONG
  26. WINDOW_TITLE:    DC.B    "EXAMPLE 3",0
  27.     EVEN
  28. ************************END OF EXAMPLE3********************
  29.